All pastes #363767 Raw Edit

goal shout

public text v1 · immutable
#363767 ·published 2007-02-19 17:40 UTC
rendered paste body
on *:TEXT:@setgoal*:#: {
  if ($nick !isreg $chan && $nick !isvoice $chan) {
    if ($3 == $null) {
      .notice $nick Sorry, but you did not follow format: 7!setgoal (goalnumber 1-5) (number to set) (goal item) ex. 3!setgoal 1 2000 steel bars
    }
    else {
      if (($2 isnum 1-5) && (!$readini(goals.ini,goals,$nick $+ $2 ) ) ) {
        if (!$readini(goals.ini,goals,$nick $+ $2 ) ) {
          //writeini goals.ini goals $nick $+ $2 $3
          //writeini goals.ini goal $nick $+ $3
          //writeini goals.ini item $nick $+ $4-
          .msg $chan Set goal $2 $+ :7 $3 10 $4- 
          .msg $chan Use !incgoal (goalnumber 1-5) (number to increase) to increase or !decgoal (goalnumber 1-5) (number to decrease) to decrease goal. To view, type !vgoal. Enjoy.
        }
      }
      else {
        .notice $nick You either have 4already set a number $2 goal, or you did not follow format: 7!setgoal (goalnumber 1-5) (number to set) (goal) ex. 3!setgoal 1 2000 steel bars
      }
    }
    else {
      .notice $nick You must be 4h/op to use this command. Sorry.
    }
  }
}

on *:TEXT:@incgoal*:#: {
  if ($nick !isreg $chan && $nick !isvoice $chan) {
    if ($2 isnum 1-5) {
      if ($readini(goals.ini,goals,$nick $+ $2 ) ) {
        //writeini goals.ini goals $nick $+ $2 $calc($readini(goals.ini, goals, $nick $+ $2 ) + $3 )
        .msg $chan New Total For4 $nick :7 $readini(goals.ini,goals, $nick $+ $2) 10out of7 $readini(goals.ini,goal, $nick $+ $2) $readini(goals.ini,item, $nick $+ $2) 
      }
      else {
        .notice $nick You either have not set a number $2 goal, or you did not follow format: 37!incgoal (goalnumber 1-5) (number to increase) ex. 3!incgoal 1 200
      }
    }
    else {
      .notice $nick Please follow format: 7!incgoal (goalnumber 1-5) (number to increase) ex. 3!incgoal 1 200
    }
  }
  else {
    .notice $nick You must be 4h/op to use this command. Sorry.
  }
}


on *:TEXT:@decgoal*:#: {
  if ($nick !isreg $chan && $nick !isvoice $chan) {
    if (($2 isnum 1-5) && ($readini(goals.ini, goals, $nick $+ $2 ))) { 
      if ($calc($readini(goals.ini, goals, $nick $+ $2 ) - $3 ) <= 0 ) {
        .msg $chan Congratulations on4 $nick completing your goal of7 $readini(goals.ini,goal, $nick $+ $2) 10 $readini(goals.ini,item, $nick $+ $2) $+ !!!! 
        //remini goals.ini item $nick $+ $2
        //remini goals.ini goal $nick $+ $2
        //remini goals.ini goals $nick $+ $2
      }
      else {
        //writeini goals.ini goals $nick $+ $2 $calc(($readini(goals.ini,goals, $nick $+ $2 )) - $3)
        .msg $chan New Total For $nick :7 $readini(goals.ini,goals, $nick $+ $2 ) 10out of7 $readini(goals.ini,goal, $nick $+ $2) 10 $readini(goals.ini,item, $nick $+ $2) 
      }
    }
    else {
      .notice $nick You either have not set a number $2 goal, or you did not follow format. 7!decgoal (goalnumber 1-5) (number to decrease) ex. 3!decgoal 1 200
    }
  }
  else {
    .notice $nick You must be 4h/op to use this command. Sorry.
  }
}


on *:TEXT:@vgoal*:#: {
  if ($nick !isreg $chan && $nick !isvoice $chan) {
    if ($2 isnum 1-5) {
      if ($readini(goals.ini,goals,$nick $+ $2) ) {
        .msg $chan Current Goal Remaining For4 $nick :7 $readini(goals.ini,goals,$nick $+ $2 ) 10out of7 $readini(goals.ini,goal, $nick $+ $2)  10 $readini(goals.ini,item, $nick $+ $2) 
      }        
      else {
        .notice $nick You either have not set a number $2 goal, or you did not follow format: 7!setgoal (goalnumber 1-5) (number to set) (goal) ex. 3!setgoal 3 3000 oak logs
      }
    }
    else {
      .notice $nick Please follow format: 7!vgoal (goalnumber 1-5) ex. 3!vgoal 1
    }
  }
  else {
    .notice $nick You must be 4h/op to use this command. Sorry.
  }
}

on *:TEXT:@remgoal*:#: {
  if ($nick !isreg $chan && $nick !isvoice $chan) {
    if ($2 isnum 1-5) {
      if ($readini(goals.ini,goals,$nick $+ $2) ) {
        .msg $chan Goal Removed From4 $nick :7 $readini(goals.ini,goals,$nick $+ $2 ) 10out of7 $readini(goals.ini,goal, $nick $+ $2)  10 $readini(goals.ini,item, $nick $+ $2) 
        //remini goals.ini item $nick $+ $2
        //remini goals.ini goal $nick $+ $2
        //remini goals.ini goals $nick $+ $2
      }        
      else {
        .notice $nick You either have not set a number $2 goal, or you did not follow format: 7@remgoal (goalnumber 1-5)  ex. 3!remgoal 3
      }
    }
    else {
      .notice $nick Please follow format: 7!vgoal (goalnumber 1-5) ex. 3!vgoal 1
    }
  }
  else {
    .notice $nick You must be 4h/op to use this command. Sorry.
  }
}