slub77 commented on a Page, Meanings list  -  Jan 01, 2010

@DeeperStill Op only would be

;;;The alias do not delete you can move this to the alias tab just remove alias from the top 

alias wini {
  var %file $1
  var %cat $2
  if ($3 != $null) {
    if ($3 !isnum) {
      var %item $3
      if ($4 != $null) {
        var %return $4
      }
    }
    else {
      var %return $3
    }
  }
  var %count 1
  var %total $iif(%item == $null, $ini(%file, 0), $ini(%file, %cat, 0))
  while (%count <= %total) {
    var %current $iif(%item == $null, $ini(%file, %count), $ini(%file, %cat, %count))
    if ($iif(%item == $null, %cat, %item) iswm %current) {
      var %result $addtok(%result, %current, 32)
    }
    inc %count
  }
  if (%return != $null) {
    return $gettok(%result, %return, 32)
  }
  else {
    return $numtok(%result, 32)
  }
}

;;;The script remember to add someone before hand

on *:TEXT:Saf*&:#:{
  if $nick isop $chan {
    writeini SAF.ini Meanings $2- 
    notice $nick 4,2Added $2 = $3-
  }
  else { notice $nick Permission Denied }
}
on *:TEXT:Sdf*&:#:{
  if $nick isop $chan {
    remini SAF.ini Meanings $2- 
    notice $nick 4,2Removed $2
  }
  else { notice $nick Permission Denied }
}

on *:TEXT:Saf:#:{
  if $nick isop $chan {
    notice $nick 4,2Commands Saf = Add an item Sdf = Delete an item Srf = show item
  }
  else { notice $nick Permission Denied }
}

on *:TEXT:Stf*:#:{
  if !$wini(SAF.ini,Meanings, $+($2,*)) { notice $nick No record of $2 have been saved } 
  else { notice $nick Total Amount of meanings that match $2 is $wini(SAF.ini,Meanings, $+($2,*)) }
}

on *:TEXT:swf*:#:{
  if !$3 { notice $nick Please enter a number }
  else { 
    if !$wini(SAF.ini,Meanings, $+($2,*), $+($3)) { notice $nick $2 do does not have that many matches, it only has $wini(SAF.ini,Meanings, $+($2,*)) }
    else {  
      var %inimach = $wini(SAF.ini,Meanings, $+($2,*), $+($3))
    notice $nick The $3 for $2 is $wini(SAF.ini,Meanings, $+($2,*), $+($3)) $readini(SAF.ini, Meanings, %inimach) }
  }
}

on *:TEXT:Sif:#:{
  notice $nick Welcome to the S*F Help:
  notice $nick Saf = Add an item and a meaning to the list
  notice $nick Stf = Returns the total number of matches a itme, or you can use a wildcard such as o and it will look for all meanings that bgin with o
  notice $nick Sdf = Deletes an item ftom meanings be sure to check if that item is in the first
  notice $nick Swf = Returns the the words for a wildcard Exsample : SWF s 1 : This will send back to you the first word that has s at the start of it or you can try a word Exsample: Swf snow 1 : This will return anymeanings that start or have snow in it
  notice $nick Srf = Returns the word and the meaning for an item
}

on 2:TEXT:SRF*&:#:{
  if (!%srf) {
    if $readini(saf.ini, Meanings, $2) {
      notice $nick  $2  : $readini(saf.ini, Meanings, $2) 
    }
    else { notice $nick No-records of $2 have been saved }
  }
  else {
    if $readini(saf.ini, Meanings, $2) {
      msg $chan  $2  : $readini(saf.ini, Meanings, $2) 
    }
    else { notice $nick No-records of $2 have been saved }
  }

}

on 7:TEXT:Sremovea*&:#:{
  remini SAF.ini Users $address($2,3) 
  notice $nick removed $2 from Saf list of users
}

;;;;;;;;;;;;;;;;;;Change 7 to your user level ;;;;;;;;;;;;;;;;;;;;;;;;

And yes it is like making your own wiki :)

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.